home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Leonardo the Inventor
/
Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso
/
LEOWINMV
/
FORTGAME.DIR
/
00274_Script_Viola
< prev
next >
Wrap
Text File
|
1996-03-20
|
2KB
|
65 lines
on resetViolaRoomCursors
set the cursor of sprite 7 = -1
set the cursor of sprite 8 = -1
set the cursor of sprite 9 = -1
set the cursor of sprite 10 = -1
set the cursor of sprite 11 = -1
set the cursor of sprite 12 = -1
set the cursor of sprite 18 = -1
set the cursor of sprite 19 = -1
global roomBackwardCursor
set the cursor of sprite 20 = roomBackwardCursor
global keySprite, grabObjectCursor
set the cursor of sprite KeySprite = grabObjectCursor
end resetViolaRoomCursors
on leaveViolaRoom
global roomBackwardCursor
set the cursor of sprite 20 = -1
resetCursors
end leaveViolaRoom
on enterViolaRoom
global PlayViolaCursor
set the cursor of sprite 7 = PlayViolaCursor
set the cursor of sprite 8 = PlayViolaCursor
set the cursor of sprite 9 = PlayViolaCursor
set the cursor of sprite 10 = PlayViolaCursor
set the cursor of sprite 11 = PlayViolaCursor
set the cursor of sprite 12 = PlayViolaCursor
set the cursor of sprite 18 = PlayViolaCursor
set the cursor of sprite 19 = PlayViolaCursor
global roomBackwardCursor
set the cursor of sprite 20 = roomBackwardCursor
end enterViolaRoom
on clearViolaNotes
global violaNotes
put empty into violaNotes
end clearViolaNotes
on appendViolaNote note
global violaNotes
if not (violaNotes = empty) then put return after violaNotes
put note after violaNotes
checkViolaNotes
end appendViolaNote
on checkViolaNotes
global violaNotes
put the number of lines in violaNotes into numLines
if numLines < 5 then exit
put line (numLines - 4) to numLines of violaNotes into testNotes
if testNotes = field "CorrectNotes" then
solvedViola
end if
end checkViolaNotes
on solvedViola
dissolve 4
go frame "Solved Viola"
end solvedViola